home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…rary 6 (Reseller Edition) / Apple Ref. & Pres. Lib.v6.0.toast / pc / 3-Presentations / Apple Demos / Training / HyperCard 2.0 Training / •HC 2.0-2 / card_3956.txt < prev    next >
Text File  |  1990-08-07  |  6KB  |  298 lines
  1. -- card: 3956 from stack: in.0-2
  2. -- bmap block id: 5643
  3. -- flags: 0000
  4. -- background id: 10385
  5. -- name: student
  6. ----- HyperTalk script -----
  7. on closeCard
  8.   if icon of btn "switch" is 282 then click at loc of btn "switch"
  9.   hide cd fld "instructions"
  10. end closeCard
  11.  
  12. on calculate
  13.   get char 1 of card field "EMF"
  14.   if it="+" then
  15.     delete char 1 of card field "EMF"
  16.   end if
  17.   put card field "EMF" into E
  18.  
  19.   get char 1 of card field "R1"
  20.   if it="+" then
  21.     delete char 1 of card field "R1"
  22.   end if
  23.   put card field "R1" into R1
  24.   put abs(R1) into card field "R1"
  25.   put abs(R1) into R1
  26.  
  27.   if E=0 then
  28.     send zeroall
  29.     exit calculate
  30.   else
  31.  
  32.     if R1=0 then
  33.       put "zap" into card field "A1"
  34.       put 0 into card field "V1"
  35.       exit calculate
  36.     end if
  37.  
  38.     put E/R1 into I1
  39.     put E/1 into V1
  40.  
  41.   end if
  42.  
  43.   --set numberFormat to "0.000"
  44.   put I1 into card field "A1"
  45.   put V1 into card field "V1"
  46. end calculate
  47.  
  48. --on closeField
  49. --set icon of btn "switch" to "open circuit"
  50. --send zeroall
  51. --end closeField
  52.  
  53. on zeroall
  54.   put 0 into card field "A1"
  55.   put 0 into card field "V1"
  56. end zeroall
  57.  
  58.  
  59.  
  60.  
  61. -- part 1 (button)
  62. -- low flags: 00
  63. -- high flags: 0000
  64. -- rect: left=320 top=164 right=198 bottom=359
  65. -- title width / last selected line: 0
  66. -- icon id / first selected line: 28757 / 28757
  67. -- text alignment: 1
  68. -- font id: 0
  69. -- text size: 12
  70. -- style flags: 0
  71. -- line height: 16
  72. -- part name: switch
  73. ----- HyperTalk script -----
  74. on mouseUp
  75.   if icon of me is 28757 then
  76.     set icon of me to "close circuit"
  77.     calculate
  78.   else
  79.     set icon of me to "open circuit"
  80.     zeroall
  81.   end if
  82. end mouseUp
  83.  
  84.  
  85.  
  86. -- part 2 (field)
  87. -- low flags: 00
  88. -- high flags: 0000
  89. -- rect: left=178 top=140 right=153 bottom=241
  90. -- title width / last selected line: 0
  91. -- icon id / first selected line: 0 / 0
  92. -- text alignment: 65535
  93. -- font id: 3
  94. -- text size: 9
  95. -- style flags: 256
  96. -- line height: 12
  97. -- part name: EMF
  98. ----- HyperTalk script -----
  99. on closeField
  100.   if icon of cd btn "Switch" is not 28757 then calculate
  101. end closeField
  102.  
  103.  
  104.  
  105. -- part 3 (field)
  106. -- low flags: 00
  107. -- high flags: 0000
  108. -- rect: left=233 top=193 right=206 bottom=278
  109. -- title width / last selected line: 0
  110. -- icon id / first selected line: 0 / 0
  111. -- text alignment: 65535
  112. -- font id: 3
  113. -- text size: 9
  114. -- style flags: 256
  115. -- line height: 12
  116. -- part name: R1
  117. ----- HyperTalk script -----
  118. on closeField
  119.   if icon of cd btn "Switch" is not 28757 then calculate
  120. end closeField
  121.  
  122.  
  123.  
  124. -- part 4 (field)
  125. -- low flags: 01
  126. -- high flags: 0002
  127. -- rect: left=161 top=199 right=211 bottom=199
  128. -- title width / last selected line: 0
  129. -- icon id / first selected line: 0 / 0
  130. -- text alignment: 65535
  131. -- font id: 3
  132. -- text size: 8
  133. -- style flags: 0
  134. -- line height: 10
  135. -- part name: A1
  136. ----- HyperTalk script -----
  137. on mouseUp
  138.   if 3 = 4 then
  139.   end if
  140. end mouseUp
  141.  
  142.  
  143.  
  144.  
  145. -- part 5 (field)
  146. -- low flags: 01
  147. -- high flags: 0002
  148. -- rect: left=239 top=254 right=266 bottom=275
  149. -- title width / last selected line: 0
  150. -- icon id / first selected line: 0 / 0
  151. -- text alignment: 65535
  152. -- font id: 3
  153. -- text size: 8
  154. -- style flags: 0
  155. -- line height: 10
  156. -- part name: V1
  157. ----- HyperTalk script -----
  158. on mouseUp
  159.   if 3 = 4 then
  160.   end if
  161. end mouseUp
  162.  
  163.  
  164.  
  165.  
  166. -- part 7 (button)
  167. -- low flags: 00
  168. -- high flags: 2000
  169. -- rect: left=257 top=283 right=297 bottom=275
  170. -- title width / last selected line: 0
  171. -- icon id / first selected line: 16560 / 16560
  172. -- text alignment: 1
  173. -- font id: 0
  174. -- text size: 12
  175. -- style flags: 0
  176. -- line height: 16
  177. -- part name: 
  178. ----- HyperTalk script -----
  179. on mouseUp
  180.   lock screen
  181.   go next
  182.   unlock screen with wipe left
  183. end mouseUp
  184.  
  185.  
  186. -- part 9 (button)
  187. -- low flags: 00
  188. -- high flags: A003
  189. -- rect: left=203 top=108 right=125 bottom=293
  190. -- title width / last selected line: 0
  191. -- icon id / first selected line: 0 / 0
  192. -- text alignment: 1
  193. -- font id: 3
  194. -- text size: 10
  195. -- style flags: 256
  196. -- line height: 13
  197. -- part name: Instructions
  198. ----- HyperTalk script -----
  199. on mouseUp
  200.   set the visible of cd fld "instructions" to not the visible of cd fld "instructions"
  201. end mouseUp
  202.  
  203.  
  204.  
  205. -- part 10 (field)
  206. -- low flags: 81
  207. -- high flags: 2002
  208. -- rect: left=83 top=104 right=299 bottom=404
  209. -- title width / last selected line: 0
  210. -- icon id / first selected line: 0 / 0
  211. -- text alignment: 0
  212. -- font id: 174
  213. -- text size: 10
  214. -- style flags: 0
  215. -- line height: 12
  216. -- part name: Instructions
  217. ----- HyperTalk script -----
  218. on mouseUp
  219.   hide me
  220. end mouseUp
  221.  
  222.  
  223.  
  224. -- part 11 (field)
  225. -- low flags: 01
  226. -- high flags: 0000
  227. -- rect: left=242 top=82 right=103 bottom=369
  228. -- title width / last selected line: 0
  229. -- icon id / first selected line: 0 / 0
  230. -- text alignment: 65535
  231. -- font id: 174
  232. -- text size: 14
  233. -- style flags: 2304
  234. -- line height: 18
  235. -- part name: 
  236.  
  237.  
  238. -- part 8 (field)
  239. -- low flags: 81
  240. -- high flags: 2002
  241. -- rect: left=73 top=73 right=302 bottom=416
  242. -- title width / last selected line: 0
  243. -- icon id / first selected line: 0 / 0
  244. -- text alignment: 0
  245. -- font id: 174
  246. -- text size: 14
  247. -- style flags: 16640
  248. -- line height: 16
  249. -- part name: Info
  250. ----- HyperTalk script -----
  251. on mouseUp
  252.   hide me
  253. end mouseUp
  254.  
  255.  
  256.  
  257. -- part contents for card part 4
  258. ----- text -----
  259. 0
  260.  
  261. -- part contents for card part 5
  262. ----- text -----
  263. 0
  264.  
  265. -- part contents for card part 3
  266. ----- text -----
  267. 20
  268.  
  269. -- part contents for card part 2
  270. ----- text -----
  271. 50
  272.  
  273. -- part contents for card part 8
  274. ----- text -----
  275. This HyperCard sample allows students to enter different values for voltage and resistance, and then see how much current travels through various circuits.
  276.  
  277. After you have hidden this text, click 
  278. ‚ÄúInstructions‚Äù to learn how to use these lab exercises.
  279.  
  280. When you are finished, click this window‚Äôs close box.
  281.  
  282. CLICK HERE TO HIDE THIS TEXT AND SEE THE SAMPLE.
  283.  
  284. -- part contents for card part 10
  285. ----- text -----
  286. Ohm‚Äôs Law states that current, i ,is proportional to the applied voltage, V:
  287.  
  288.           i = V / R
  289.  
  290. where R is the resistance.
  291.  
  292. Enter values for the power source and for the resistors on this circuit, and then click the switch to see the results in the ammeter and the voltmeter.
  293.  
  294. CLICK HERE TO HIDE THE INSTRUCTIONS.
  295.  
  296. -- part contents for card part 11
  297. ----- text -----
  298. OHM‚ÄôS LAW